home *** CD-ROM | disk | FTP | other *** search
Wrap
XSetup plugin | 2001-11-27 | 2.6 KB | 94 lines
"FILE"="Xteq Systems X-Setup Plugin 6.0" "TYPE"="6" "COUNT"="4" "UIPATH"="Hardware\Mouse\MS Intellipoint" "NAME"="Show/Hide Control Panel pages" "LANGUAGE"="VBScript" "TEXT 1"="Show "Activities" page" "TEXT 2"="Show "Buttons" page" "TEXT 3"="Show "Pointer Options" page" "TEXT 4"="Show "Wheel" page" "DESCRIPTION 1"="When you install Microsoft's IntelliPoint, your Mouse Properties applet in Control Panel acquires 4 new pages. If you want, you can disable these." "DESCRIPTION 2"="Note: Disabling all pages will revert the Mouse Properties dialog back to its 3 default pages." "COMMENT 1"="Thanks to CptSiskoX for suggesting that I download the IntelliPoint drivers, despite the fact I use a Logitech mouse. Ah well, it works..." "VERSION"="1.03" "AUTHOR"="Xteq Systems (Neil R. Turner)" "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved." "CONTACTURL"="http://www.xteq.com/" sP="HKLM\Software\Microsoft\Windows\CurrentVersion\Controls Folder\Mouse\shellex\PropertySheetHandlers\" sP1="Activities\@" sP2="Buttons\@" sP3="Wheel\@" sP4="PointerOptions\@" SUB Plugin_Initialize s=RegReadValue(sP & sP1) if s="{F3D2DFC1-315B-11CE-BEA8-00AA0044301B}" then Call SetUIElement(1,true) end if s=RegReadValue(sP & sP2) if s="{F3D2DFC2-315B-11CE-BEA8-00AA0044301B}" then Call SetUIElement(2,true) end if s=RegReadValue(sP & sP3) if s="{F3D2DFC3-315B-11CE-BEA8-00AA0044301B}" then Call SetUIElement(3,true) end if s=RegReadValue(sP & sP4) if s="{F3D2DFC4-315B-11CE-BEA8-00AA0044301B}" then Call SetUIElement(4,true) end if END SUB SUB Plugin_CheckData(ElementIndex) END SUB SUB Plugin_Apply(ElementIndex,ElementSubIndex) s=GetUIElement(1) if s=true then Call RegWriteValue(sP & sP1,"{F3D2DFC1-315B-11CE-BEA8-00AA0044301B}",1) else u=RegValueExists(sp & sP1) if u=true then Call RegDeleteValue(sP & sP1) end if end if s=GetUIElement(2) if s=true then Call RegWriteValue(sP & sP2,"{F3D2DFC2-315B-11CE-BEA8-00AA0044301B}",1) else t=RegValueExists(sp & sP2) if t=true then Call RegDeleteValue(sP & sP2) end if end if s=GetUIElement(3) if s=true then Call RegWriteValue(sP & sP3,"{F3D2DFC3-315B-11CE-BEA8-00AA0044301B}",1) else t=RegValueExists(sP & sP3) if t=true then Call RegDeleteValue(sP & sP3) end if end if s=GetUIElement(4) if s=true then Call RegWriteValue(sP & sP4,"{F3D2DFC4-315B-11CE-BEA8-00AA0044301B}",1) else t=RegValueExists(sp & sP4) if t=true then Call RegDeleteValue(sP & sP4) end if end if END SUB SUB Plugin_Terminate END SUB